home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 March / EnigmA AMIGA RUN 05 (1996)(G.R. Edizioni)(IT)[!][issue 1996-03][Skylink CD IV].iso / earcd / patches / pgs3g1.lha / 3.0gUpdate / Macros.LHA / GotoMasterPage.rexx < prev    next >
OS/2 REXX Batch file  |  1995-03-24  |  720b  |  26 lines
  1. /* $VER: GotoMasterPage.rexx 1.1 (24.03.95)
  2.    Copyright 1995 Soft-Logik Publishing Corporation
  3.    May not be distributed without Soft-Logik Publishing Corporation's express written permission */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. ADDRESS 'PAGESTREAM'
  8.  
  9. 'currentpage'
  10. if result<1 then do    /* current page is a master page */
  11.     'display page previous'
  12. end
  13. else do                /* current page is a normal page */
  14.     'currentmasterpage'
  15.     mpname=result
  16.     'getdimensions 'stem' masterpage "'mpname'"'
  17.     if stem.sides='SINGLE' then mpname=mpname||':right'
  18.     if stem.sides='DOUBLE' then do
  19.     'currentpage'
  20.     pagenum=result
  21.     if pagenum/2=trunc(pagenum/2) then mpname=mpname||':left'
  22.         else mpname=mpname||':right'
  23.     end
  24.     'display mpg "'mpname'"'
  25. end
  26.